home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Telecommunications / Updates⁄New / MicroPhone 2 Scripts / ChatMP2 / InScroll < prev    next >
Encoding:
Text File  |  1988-06-07  |  1021 b   |  26 lines  |  [TEXT/ttxt]
  1.  Settings File = TestBed
  2.  Script Name = InScroll
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   Remark "The script creates the 'conversation' region of"
  9. 2   Remark "the screen, and installs the cursor."
  10. 3   Remark "====================================="
  11. 4   Remark "Record the position of the cursor in the"
  12. 5   Remark "'keyboard' scroll region."
  13. 6   Remark "====================================="
  14. 7   Set Variable outCursRow from Expression  "=CURSORROW"
  15. 8   Set Variable outCursCol from Expression  "=CURSORCOL"
  16. 9   Remark "====================================="
  17. 10  Remark "Now create the 'conversation' scroll region."
  18. 11  Remark "====================================="
  19. 12  Send Local to Screen  "^[[1;18r"
  20. 13  Remark "====================================="
  21. 14  Remark "Move the cursor to the position it last occupied"
  22. 15  Remark "in the 'conversation' region."
  23. 16  Remark "====================================="
  24. 17  Move Cursor to Absolute row  "=inCursRow"
  25. 18  Move Cursor to Absolute column  "=inCursCol"
  26.